home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / post time (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  226 lines
  1. 0 rem--ahoy!--june issue--post time-----prog page 35
  2. 1 rem ****** p o s t  t i m e ******
  3. 2 rem *** designed by bob lloret ***
  4. 3 rem ***** for ahoy! magazine *****
  5. 5 print "[147]":poke 53280,6:poke53281,0:for a=1 to 3:print:next a
  6. 10 print tab(6);"[158]   [192][146] [169]  [192][146] [169]  [192][146] [169]   [192]"
  7. 15 print tab(6);" [146]   [146]  [146]   [146]  [146]       [146]      [168] [168] [168]"
  8. 20 print tab(6);"   [146][169]  [146]   [146]     [146]    [146]      [168] [168] [168]"
  9. 25 print tab(6);"[156] [146]     [146]   [146]     [146]    [146]      [168] [168] [168]"
  10. 30 print tab(6);" [146]       [146][169][146]    [146][169]    "
  11. 32 print
  12. 35 print tab(16);"[169]   [192][146]  [192][146]  [223][146]  [169][146] [169] [192]"
  13. 40 print tab(6);"[168] [168] [168]        [146]     [146]   [223][169] [146]  "
  14. 45 print tab(6);"[158][168] [168] [168]        [146]     [146]   [146]   [146]   "
  15. 50 print tab(6);"[168] [168] [168]        [146]     [146]   [146]   [146]  "
  16. 55 print tab(16);"[156]   [146]     [146]   [146]   [146]   [146][169]"
  17. 60 print "":msg$="                    designed by....bob llort"
  18. 65 print "         [146]                              "
  19. 70 a$=right$(msg$,len(msg$)-1):b$=a$+left$(msg$,1)
  20. 75 print "[156][145]";tab(7);left$(b$,26):msg$=b$
  21. 80 for d=1 to 80:next d:msg=msg+1:if msg=75 then 90
  22. 85 goto 70
  23. 90 a$="":b$="":msg$="":msg=0
  24. 100 print "[147]":poke 53280,6:poke 53281,7
  25. 110 print "[145]                                        "
  26. 120 print "[145]                                        "
  27. 130 print "[145]*[195][195][195][195][195][195][195][195]*  p o s t  t i m e  *[195][195][195][195][195][195][195][195]*  "
  28. 140 print "[145]                                        "
  29. 160 print "[145]                                        "
  30. 170 print tab(10);"[156]number of players";:input np:if np<1 ornp>4 then 100
  31. 180 print "[149]       enter player's first names":print
  32. 185 for i=1 to np:print "          player #";i;:input name$(i):next i
  33. 190 print "[147]":poke 53280,0:poke 53281,0
  34. 195 print tab(7);"[154]welcome to commodore downs"
  35. 200 print "[1][146] all players start with $500
  36. 205 [153] "[2]wait all players will bet in turn"
  37. 210 [153] "[3]wait the program will keep track of wins     and losses"
  38. 220 [153] "[4]wait if you lose your money, you will not    be able to bet"
  39. 298 [143] ****  create sprites  ****
  40. 299 [143] ==========================
  41. 300 v[178]53248
  42. 310 [129] sp[178]12288 [164] 12350:[135] nu:[151] sp,nu:[130] sp
  43. 320 [129] sp[178]12352 [164] 12414:[135] nu:[151] sp,nu:[130] sp
  44. 330 [129] sp[178]12416 [164] 12478:[135] nu:[151] sp,nu:[130] sp
  45. 340 [129] sp[178]12480 [164] 12542:[135] nu:[151] sp,nu:[130] sp
  46. 345 [129] sp[178]12544 [164] 12606:[135] nu:[151] sp,nu:[130] sp
  47. 350 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,1,252,128,1,248,192
  48. 360 [131] 32,229,224,119,255,240,207,254,96,143,254,0,7,252,0,6,12
  49. 370 [131] 0,6,12,0,3,24,0,0,144,0,0,0,0,0,0,0,0,0,0,0,0,0
  50. 380 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,1,252,64,0,228,96,0,0,240
  51. 390 [131] 231,255,248,127,255,176,15,254,0,15,254,0,12,6,0,12,3,0
  52. 400 [131] 6,1,128,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0
  53. 410 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,1,252,0,1,248,32,224
  54. 420 [131] 230,112,55,255,248,15,255,188,15,255,24,15,254,0,12,6,0,12,3
  55. 430 [131] 0,24,3,0,16,1,128,0,0,0,0,0,0,0,0,0
  56. 440 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,1,252,0,225,252,16,112
  57. 450 [131] 227,48,23,255,248,15,255,252,15,255,14,15,254,4,12,6,0
  58. 455 [131] 24,3,0,48,1,128,96,0,192,0,0,0,0,0,0,0,0,0
  59. 460 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,48,60,0,248
  60. 461 [131] 122,7,248,254,63,252,254,127,255,254,127,255,254,127,255,254
  61. 462 [131] 255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  62. 465 [153] "clr    if your ready for some excitement...    ...press 'f1'"
  63. 466 [161] an$:[139] an$[178]"input" [167] 470
  64. 467 [139] an$[178]"" [167] 466
  65. 468 [143] ***  race selections  ***
  66. 469 [143] =========================
  67. 470 [129] i[178]1 [164] np:cash(i)[178]500:[130] i:br[178]0:b[178]0:ts[178]0:fp[178]0:hp[178]0:si[178]54272
  68. 475 cnt[178]cnt[170]1:[129] l[178]0 [164] 24:[151] si[170]l,0:[130] l
  69. 480 [153] "load":[151] 53280,9:[151] 53281,7
  70. 490 [153] "verifyonpeekpeekpeekpeekpeekpeekpeekpeekpeekwait                     peekpeekpeekpeekpeekpeekpeekpeekpeekpeek"
  71. 500 [153] "onpeekpeekpeekpeekpeekpeekpeekpeekpeekwait race #";cnt;"selections verifypeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeek"
  72. 510 [153] "onpeekpeekpeekpeekpeekpeekpeekpeekpeekwaitrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndpeekpeekpeekpeekpeekpeekpeekpeekpeekpeek"
  73. 520 [153]:[153] " no.        name                 odds "
  74. 530 [129] i[178]1 [164] 6:t[178]31:od(i)[178][181]([187](0)[172]15)[170]1:[135]hname$(i):[139]od(i)[177]9 [167] t[178]30
  75. 540 [153] "stop ";i;[163]9);"clr";hname$(i);[163]t);"";od(i);"to 1":[130] i
  76. 550 [153]:[153] "   $ $ $ verifytrifecta pays 50 to 1wait $ $ $":[153]
  77. 555 [129] i[178]1 [164] np:[139] cash(i)[179][178]0 [167] bet(i)[178]0:h(i)[178]0:[137] 695
  78. 560 [153] "poke        okay ";name$(i);", make your bet"
  79. 570 [153]:[153][163]15);"cont1-win":[153][163]15);"2-place":[153][163]15);"3-show"
  80. 580 [153] [163]15);"4-trifecta"
  81. 590 [161] an$(i):[139] an$(i)[178]"" [167] 590
  82. 600 [139] an$(i)[179]"1" [176] an$(i)[177]"4" [167] [153] "ononononononon":[137] 560
  83. 610 [153]"onononononon":[129]a[178]1[164]7:[153]"                                      ":[130]
  84. 615 [153] "ononononononon"
  85. 620 [139] an$(i)[177][178]"1" [175] an$(i)[179][178]"3" [167] [137] 640
  86. 630 [139] an$(i)[178]"4" [167] [137] 670
  87. 640 [153] [163]12);"oncontwhich horse";:[133] h(i):[139] h(i)[179]1 [176] h(i)[177]6 [167] 640
  88. 650 [153] [163]5);"you have $";cash(i);" your bet";:[133] bet(i)
  89. 660 [139] bet(i)[177]cash(i) [167] [153]"ononon":[137] 650
  90. 665 [153] "":[137] 685
  91. 670 [129] tri[178]1 [164] 3:[153] [163]10);"onhorse number ";tri;:[133] h(tri)
  92. 675 [153]:[130] tri
  93. 680 [153] [163]5);"you have $";cash(i);" your bet";:[133] bet(i)
  94. 682 [139] bet(i)[177]cash(i) [167] [153] "ononon":[137] 680
  95. 685 [153]"ononononononon":[129]a[178]1[164]7:[153]"                                      ":[130]
  96. 690 [153] "onononononononon"
  97. 695 [130] i
  98. 698 [143] ****  the race  ****
  99. 699 [143] ====================
  100. 700 [141] 2000
  101. 705 [151] v[170]16,0:b[178]0:ts[178]0:fp[178]0:hp[178]0
  102. 710 p[178]30:py[178]135:[129] n[178]1 [164] 6:x(n)[178]p:y(n)[178]py:py[178]py[170]14:[130] n
  103. 720 [151]v[170]39,1:[151]v[170]40,14:[151]v[170]41,7:[151]v[170]42,3:[151]v[170]43,4:[151] v[170]44,0
  104. 730 a[178]0:[129] n[178]1[164] 6:[151] v[170]a,x(n):a[178]a[170]1:[151] v[170]a,y(n):a[178]a[170]1:[130] n
  105. 735 [129] n[178]1 [164] 6:col(n)[178]30:[130] n
  106. 740 [129] s[178]2040 [164] 2045:[151] s,192:[130] s:[151] v[170]21,255
  107. 750 [153] "stopon        t h e y' r e  o f f ! ! !"
  108. 760 [129] d[178]1 [164] 1000:[130] d
  109. 770 [153] "on                                 "
  110. 815 [143] ***  horse  movement  ***
  111. 816 [143] =========================
  112. 820 z[178][181]([187](0)[172]6)[170]1
  113. 830 [139] z[178]1 [167] a[178]0:b[178]1:r[178]1:n[178]1:h[178]2040
  114. 840 [139] z[178]2 [167] a[178]2:b[178]2:r[178]3:n[178]2:h[178]2041
  115. 850 [139] z[178]3 [167] a[178]4:b[178]4:r[178]5:n[178]3:h[178]2042
  116. 860 [139] z[178]4 [167] a[178]6:b[178]8:r[178]7:n[178]4:h[178]2043
  117. 870 [139] z[178]5 [167] a[178]8:b[178]16:r[178]9:n[178]5:h[178]2044
  118. 880 [139] z[178]6 [167] a[178]10:b[178]32:r[178]11:n[178]6:h[178]2045
  119. 890 y(n)[178]y(n)[171]3:[151] v[170]r,y(n):[151]h,193:[129] d[178]1 [164] 4:[130] d:[151]h,194
  120. 895 [129] d[178]1 [164] 4:[130] d:x(n)[178]x(n)[170]5:col(n)[178]col(n)[170]5
  121. 896 [151] si,2:[151] si[170]1,1:[151]si[170]24,8:[151] si[170]4,129
  122. 900 [139] x(n)[177][178]255 [167] x(n)[178]0:ts[178]ts[170]b:[151] v[170]16,ts
  123. 905 [139] col(n)[178]155 [167] [141] 1100
  124. 910 [139] col(n)[178]320 [167] [141] 935
  125. 912 [151] si[170]4,16:[151] si,0:[151] si[170]1,0
  126. 913 [129] d[178]1 [164] 3:[130] d
  127. 915 [151] si,2:[151] si[170]1,1:[151]si[170]24,8:[151] si[170]4,129
  128. 920 [151]v[170]a,x(n):y(n)[178]y(n)[170]3:[151]v[170]r,y(n):[151]h,195:[129]d[178]1[164]10:[130]d:[151]h,192
  129. 925 [151] si[170]4,16:[151] si,0:[151] si[170]1,0
  130. 930 [137] 820
  131. 935 fp[178]fp[170]1:win(fp)[178]n:win$(fp)[178]hname$(n):od(fp)[178]od(n)
  132. 940 [139] fp[178]3 [167] [151] si[170]4,32:[151] si[170]1,0:[151] si,0:[137] 950
  133. 945 [142]
  134. 948 [143] **** photo finish ****
  135. 949 [143] ======================
  136. 950 [153] "load":[151] v[170]21,0:[151] 53280,1:[151] 53281,1:[153] ""
  137. 955 [129] d[178]1 [164] 600:[130] d
  138. 960 [153] [163]15);"listp h o t o":[153] [163]14);"f i n i s h"
  139. 970 [129] d[178]1 [164] 500:[130] d
  140. 980 [153] [163]15);"print#onononononp h o t o":[153] [163]14);"f i n i s h"
  141. 990 [129] d[178]1 [164] 500:[130] d
  142. 1000 [153] [163]15);"pokeonononononp h o t o":[153] [163]14);"f i n i s h"
  143. 1010 [129] d[178]1 [164] 500:[130] d
  144. 1020 [153] [163]15);"onononononstopp h o t o":[153] [163]14);"f i n i s h"
  145. 1030 [129] d[178]1 [164] 700:[130] d:[137] 1150
  146. 1100 hp[178]hp[170]1:pla(hp)[178]n:[139] hp[178]3 [167] 1115
  147. 1110 [137] 1120
  148. 1115 [153][163]4);"onat the 1/2 mile pole-";pla(1);" ";pla(2);" ";pla(3);
  149. 1120 [142]
  150. 1140 [143] **** race results ****
  151. 1145 [143] ======================
  152. 1150 [153] "load":[151] 53280,2:[151] 53281,15
  153. 1160 [153] [163]6);"** r a c e  r e s u l t s **":[153]
  154. 1170 [153] [163]10);"win #"
  155. 1180 [153] [163]8);"place #"
  156. 1190 [153] [163]9);"show #":[153] "ononononononon"
  157. 1195 [129] d[178]1 [164] 1000:[130] d
  158. 1200 [129] fp[178]1 [164] 3:[153] [163]15);"stop";win(fp);"clr ";win$(fp)
  159. 1205 [129] d[178]1 [164] 1300:[130] d:[130] fp
  160. 1210 [153] "stopnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnotnot"
  161. 1220 [129] i[178]1 [164] np
  162. 1240 [139] an$(i)[178]"1" [167] 1280
  163. 1250 [139] an$(i)[178]"2" [167] 1300
  164. 1260 [139] an$(i)[178]"3" [167] 1320
  165. 1270 [139] an$(i)[178]"4" [167] 1340
  166. 1280 [139] h(i)[178]win(1) [167] amt(i)[178]bet(i)[172]od(1):[137] 1360
  167. 1290 cash(i)[178]cash(i)[171]bet(i):[137] 1380
  168. 1300 [139] h(i)[178]win(1) [167] amt(i)[178][181](bet(i)[172]od(1)[173]2):[137] 1360
  169. 1305 [139] h(i)[178]win(2) [167] amt(i)[178][181](bet(i)[172]od(2)[173]2):[137] 1360
  170. 1310 cash(i)[178]cash(i)[171]bet(i):[137] 1380
  171. 1320 [139] h(i)[178]win(1) [167] amt(i)[178][181](bet(i)[172]od(1)[173]3:[137] 1360
  172. 1325 [139] h(i)[178]win(2) [167] amt(i)[178][181](bet(i)[172]od(2)[173]3):[137] 1360
  173. 1326 [139] h(i)[178]win(3) [167] amt(i)[178][181](bet(i)[172]od(3)[173]3):[137] 1360
  174. 1330 cash(i)[178]cash(i)[171]bet(i):[137] 1380
  175. 1340 [139] h(1)[178]win(1)[175]h(2)[178]win(2) [175] h(3)[178]win(3)[167]amt(i)[178]bet(i)[172]50:[137]1360
  176. 1350 cash(i)[178]cash(i)[171]bet(i):[137] 1380
  177. 1360 cash(i)[178]cash(i)[170]amt(i)
  178. 1370 [153] "";[163]5);name$(i);" won $";amt(i);"-you have $";cash(i):[137] 1500
  179. 1380 [139] cash(i)[179][178]0 [167] 1400
  180. 1390 [153]"";[163]5);name$(i);" lost $";bet(i);"-you have $";cash(i):[137] 1500
  181. 1400 [153] "stop";[163]5);name$(i);" went broke":br[178]br[170]1:[139] br[178]np [167] [128]
  182. 1500 [130] i
  183. 1510 [139] cnt[178]10 [167] [128]
  184. 1520 [139] np[178]1 [167] line[178]9
  185. 1530 [139] np[178]2 [167] line[178]7
  186. 1540 [139] np[178]3 [167] line[178]5
  187. 1550 [139] np[178]4 [167] line[178]3
  188. 1560 [129] a[178]1 [164] line:[153]:[130] a
  189. 1570 [153] " stop       wait next race....coming up stop       "
  190. 1580 [129] d[178]1 [164] 5500:[130] d:[137] 475
  191. 1998 [143] *** draw race track ***
  192. 1999 [143] =======================
  193. 2000 [151] v[170]45,1:[151] v[170]12,85:[151] v[170]13,48:[151] 2046,196:[151] v[170]29,192
  194. 2010 [151] v[170]21,192:[151] 2047,196:[151] v[170]46,1:[151] v[170]14,120:[151] v[170]15,48
  195. 2020 [153] "load":[151] 53280,0:[151] 53281,5
  196. 2030 [129] a[178]1 [164] 3:[153] "on                                        ":[130] a
  197. 2040 [153][163]9);"poke(NULL)step   pokewait(NULL)sysstep   poke(NULL)step   poke(NULL)forstep   poke(NULL)clrstep"
  198. 2050 [153] [163]9);"poke(NULL)  stopcommodore  downspoke (NULL)"
  199. 2060 [153] [163]10);"print#(NULL)                  waitstep"
  200. 2070 [153] [163]11);"print#(NULL)spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( waitprint#step"
  201. 2080 [153] [163]12);" spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc( ":[153] [163]12);"poke                "
  202. 2090 [153] "(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr"
  203. 2100 [153] "onstop1verify                                      stopf"
  204. 2110 [153] "onstop verify                                      stop "
  205. 2120 [153] "onstop2verify                                      stopi"
  206. 2130 [153] "onstop verify                                      stop "
  207. 2140 [153] "onstop3verify                                      stopn"
  208. 2150 [153] "onstop verify                                      stop "
  209. 2160 [153] "onstop4verify                                      stopi"
  210. 2170 [153] "onstop verify                                      stop "
  211. 2180 [153] "onstop5verify                                      stops"
  212. 2190 [153] "onstop verify                                      stop "
  213. 2200 [153] "onstop6verify                                      stoph"
  214. 2210 [153] "on(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr(NULL)(NULL)usrusr"
  215. 2220 [142]
  216. 2300 [131] seattle slew,secretariat,lightnin',slo poke,streaker,gambler
  217. 2310 [131] fireworks,hoofer,thunder,slick stick,golden boy,rocket
  218. 2320 [131] bold forbes,affirmed,general assembly,dancers image,hill rise,nashua
  219. 2330 [131] genuine risk,riva ridge,pensive,assault,tim tam,carry back
  220. 2340 [131] jim french,no le hace,brevity,nashua,fabius,assault
  221. 2350 [131] majestic prince,pensive,worth,omaha,jet pilot,count turf
  222. 2360 [131] dauber,crozier,sham,carry back,ponder,pot o luck
  223. 2370 [131] advocator,hill prince,spy song,misstep,zal,ticket
  224. 2380 [131] bally ache,capot,citation,needles,decidedly,swaps
  225. 2390 [131] foward pass,rumbo,burgoo king,cavalcade,flying ebony,native dancer
  226.